Set(DicomDataSet,Boolean,Object[]) Method

Visual Basic
C#
Objective-C
Java
C++

[ExtensionAttribute()]
public static void Set( 
   DicomDataSet ds,
   bool addOptional,
   params object[] instances
)

'Declaration
 
<ExtensionAttribute()>
Public Overloads Shared Sub Set( _
   ByVal ds As DicomDataSet, _
   ByVal addOptional As Boolean, _
   ByVal ParamArray instances() As Object _
)

'Usage
 
Dim ds As DicomDataSet
Dim addOptional As Boolean
Dim instances() As Object
 
DicomExtensions.Set(ds, addOptional, instances)

[ExtensionAttribute()]
public:
static void Set( 
   DicomDataSet^ ds,
   bool addOptional,
   ... array<Object^>^ instances
)

Parameters

ds: The datasets to set information into.
addOptional: If set to true add optional elements from the class instance.
instances: The instances that have the correct attributes.

Visual Basic
C#
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

Imports Leadtools.Dicom.Common.DataTypes
Imports Leadtools.Dicom.Common.Extensions
Imports Leadtools.Dicom
Imports Leadtools.Dicom.Common.Editing.Converters
Imports Leadtools.Dicom.Common.Editing

Public Class PatientInfoTest
   Private _PatientName As PersonName

   <Element(DicomTag.PatientName, Optional := True), TypeConverter(GetType(PersonNameConverter))> _
   Public Property PatientName() As PersonName
      Get
         Return _PatientName
      End Get
      Set
         _PatientName = Value
      End Set
   End Property

   Private _PatientID As String
   <Element(DicomTag.PatientID, Optional := False)> _
   Public Property PatientID() As String
      Get
         Return _PatientID
      End Get
      Set
         _PatientID = Value
      End Set
   End Property
End Class

<Test> _
Public Sub OptionalTest()
   Dim info As PatientInfoTest = New PatientInfoTest()

   ' Initialize DICOM engine
   DicomEngine.Startup()

   Dim ds As DicomDataSet = New DicomDataSet()

   ' Initialize empty dataset
   ds.Initialize(DicomClassType.Undefined, DicomDataSetInitializeFlags.None)

   '
   ' Initialize Patient Information
   '
   info.PatientName = New PersonName("LAST^FIRST")
   info.PatientID = "123456"

   '
   ' Set the patient information
   '
   ds.Set(False,info)

   '
   ' Patient Name should't exist since we didn't add optional elements
   '
   Dim element As DicomElement = ds.FindFirstElement(Nothing, DicomTag.PatientName, False)

   If element Is Nothing Then
      Console.WriteLine("Patient Name not added")
   End If
   DicomEngine.Shutdown()
End Sub

Target Platforms

Reference

DicomExtensions Class
DicomExtensions Members
Overload List